home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / probots.arc / GORO.PR < prev    next >
Text File  |  1991-04-28  |  522b  |  21 lines
  1.   PROCEDURE GORO;
  2.     { GORO is based on a Japanese 60's TV drama "Ultra-Q"
  3.       Original C-Robot by Hortense Endoh}
  4.  
  5.   VAR
  6.     dir, Range     : Integer;
  7.  
  8.   BEGIN {Goro Main}
  9.     dir := 0;
  10.  
  11.     REPEAT { loop until dead or winner }
  12.       Range := scan(dir, 10); { look }
  13.       IF (Range > 40) THEN BEGIN
  14.         cannon(dir, Range); { fire }
  15.         drive(dir, 100); { move }
  16.       END
  17.       ELSE
  18.         dir := dir+170; { change look and drive direction }
  19.     UNTIL Dead OR Winner;
  20.   END; {Goro Main}
  21.